home *** CD-ROM | disk | FTP | other *** search
/ Clickx 13 / Clickx 13.iso / pc / start.exe / start.dxr / 00013_installButton.ls < prev    next >
Encoding:
Text File  |  2001-04-17  |  920 b   |  38 lines
  1. on mouseDown me
  2.   global gButtonDN
  3.   gButtonDN = me
  4.   set the castLibNum of sprite the spriteNum of me to castLib("butDN").number
  5.   updateStage()
  6. end
  7.  
  8. on mouseUp me
  9.   global gButtonDN, gLink, gTitel, gExes, gTitelNr
  10.   gButtonDN = 0
  11.   set the castLibNum of sprite the spriteNum of me to castLib("butN").number
  12.   updateStage()
  13.   gTitelNr = gTitel.spriteNum - 9
  14.   theProp = gLink & string(gTitel.spriteNum - 9)
  15.   theExec = getProp(gExes, theProp)
  16.   open(the moviePath & theExec)
  17. end
  18.  
  19. on mouseUpOutSide me
  20.   global gButtonDN
  21.   gButtonDN = 0
  22.   set the castLibNum of sprite the spriteNum of me to castLib("butN").number
  23.   updateStage()
  24. end
  25.  
  26. on mouseEnter me
  27.   global gButtonDN
  28.   if gButtonDN = me then
  29.     set the castLibNum of sprite the spriteNum of me to castLib("butDN").number
  30.   end if
  31.   updateStage()
  32. end
  33.  
  34. on mouseLeave me
  35.   set the castLibNum of sprite the spriteNum of me to castLib("butN").number
  36.   updateStage()
  37. end
  38.